home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_2
/
twview93.zip
/
STATUS.INC
< prev
next >
Wrap
Text File
|
1992-03-11
|
495b
|
19 lines
function status( i : integer ) : string;
begin
case i of
NotAPort : status := 'is not a port';
0 : status := 'BBB';
1 : status := 'SBB';
2 : status := 'BSB';
3 : status := 'SSB';
4 : status := 'BBS';
5 : status := 'SBS';
6 : status := 'BSS';
7 : status := 'SSS';
Class0 : status := 'HFS';
else
status := 'impossible status!';
end; {case}
end;